Top 10k strings from Fruit Machine + Pontoon (1982)(Astro Software)(16k)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Various - [TZX] (TOSEC-v2006-06-06) /

Back to the directory listing

   6 FIVE CARD TRICK
   4 YOU=YOU+100
   3 YOU=YOU-100
   3 SUIT=D(B))
   3 FIVE CARD TRICK1
   3 CHECK FOR BUST
   2 pontoon   
   2 P2=P2+CARD
   2 P1=P1+CARD
   2 CHECK FOR SCREEN FULL
   2 ;"YOU STUCK AT ";P1;
   2 ;"PONTOON";
   2 ;"I WIN `100"
   2 ;"I BUST AT ";P2;
   1 main programme
   1 ivecardtrick
   1 ivecardtric
   1 SPECTRUM BUST
   1 OVERALL WIN
   1 FIVE CARD TRICK=1
   1 FIVE CARD TRICK=0
   1 FIVE CARD TRICK;"YOU WIN `100"
   1 FIVE CARD TRICK1=1
   1 FIVE CARD TRICK1=0
   1 FIVE CARD TRICK1;"A FIVE CARD TRICK               YOU WIN `200"
   1 FIVE CARD TRICK1;"A FIVE CARD TRICK               I WIN `200"
   1 FIVE CARD TRICK 
   1 E(ARRAY)=PIC
   1 D(ARRAY)=SUIT
   1 Created with Ramsoft MakeTZX
   1 CHOOSE TWO CARDS FOR SPECTRUM
   1 CHOOSE TWO CARDS FOR HUMAN
   1 CARD DRAWING ROUTINE
   1 CARD CHOOSING ROUTINE
   1 C(ARRAY)=CARD
   1 BUST HUMAN
   1 ARRAY=ARRAY+1
   1 ACE AND 11'S FOR SPECTRUM
   1 ACE AND 11'S FOR HUMAN
   1 ;"YOUR CREDIT IS:`";YOU
   1 ;"YOU WIN `100"
   1 ;"YOU STUCK AT ";P1
   1 ;"YOU BUST AT ";P1;
   1 ;"YOU ARE BROKE.I WIN."
   1 ;"PRESS A KEY"
   1 ;"OKAY BYE FOR NOW.       "
   1 ;"MY TOTAL SO FAR ";P2;
   1 ;"I STUCK AT ";P2
   1 ;"I AM BROKE.YOU WIN."
   1 ;"ANOTHER GAME (Y/N)?"
   1 ;"A FIVE CARD TRICK","YOU WIN `200"
   1 ;"1=Twist:2=Stick"
   1 ;" MY CREDIT IS:  `";ME;
   1 ;"               "
   1 ,,;"THE PLAYER ALWAYS STARTS.       THE COMPUTER DEALS OUT TWO CARDSTHE OPTION OF 1:TWIST 2:STICK ISTHEN DISPLAYED THE PLAYER THEN  INPUTS EITHER 1 OR 2.           IF 1 IS INPUT A CARD IS CHOSEN  AND PRINTED."
   1 ,,"NB-ACE COUNTS AS 1 OR 11."
   1 (CARD=C(B)
   1 "IF 2 IS INPUT THE COMPUTER THEN DEALS ITSELF CARDS."
   1 ",,"THE AIM OF THE GAME IS TO GET ASCLOSE AS POSSIBLE BUT NOT       EXCEEDING 21."
   1  P.Meakin 1983     Produced by Astro Software